home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
s85xx
/
s8501.d64
/
checksummer 64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
44 lines
0 REM *******************************
1 REM * *
2 REM * CHECKSUMMER 64 *
3 REM * *
4 REM * COPYRIGHT OKTOBER 1984 BY *
5 REM * *
6 REM * FRANK LONCZEWSKI *
7 REM * *
8 REM *******************************
9 PRINT"[147] CHECKSUMMER 64[146]"
10 PRINT" WRITTEN OCTOBER 1984 BY F. LONCZEWSKI"
11 PRINT" ICH ARBEITE! BITTE ETWAS GEDULD."
12 FORI=40960TO49151:POKEI,PEEK(I):NEXT
13 FORI=57344TO65535:POKEI,PEEK(I):NEXT
14 POKE1,53:POKE42289,96:POKE42290,228
15 FORI=58464TO58554:GOSUB21:POKEI,A
16 PS=PS+A+1:NEXTI
17 IFPS<>11187THENPRINT"PRUEFSUMMENFEHLER !":END
18 PRINT" CHECKSUMMER AKTIVIERT."
19 PRINT"AUSSCHALTEN : POKE1,55"
20 PRINT"ANSCHALTEN : POKE1,53":NEW
21 READA$:IFLEN(A$)<>2THENPRINT"TIPPFEHLER IN ZEILE"PEEK(63)+PEEK(64)*256:END
22 A1=ASC(A$):A2=ASC(RIGHT$(A$,1))
23 IFA1<48ORA1>57THENIFA1<65ORA1>70THEN30
24 IFA2<48ORA2>57THENIFA2<65ORA2>70THEN30
25 IFA1>64THENA1=A1-55:GOTO27
26 IFA1<58THENA1=A1-48
27 IFA2>64THENA2=A2-55:GOTO29
28 IFA2<58THENA2=A2-48
29 A=A1*16+A2:RETURN
30 PRINT"UNGUELTIGER HEXCODE IN ZEILE"PEEK(63)+PEEK(64)*256:END
31 DATA A0,02,A9,00,85,02,B1,5F
32 DATA F0,0F,C9,20,D0,03,C8,D0
33 DATA F5,18,65,02,85,02,4C,6E
34 DATA E4,C0,04,30,F1,C6,D6,A5
35 DATA D6,48,A2,03,A9,20,9D,01
36 DATA 04,BD,B7,E4,20,D2,FF,CA
37 DATA 10,F2,A6,02,A9,00,20,CD
38 DATA BD,A9,3E,20,D2,FF,68,85
39 DATA D6,20,6C,E5,A9,8D,20,D2
40 DATA FF,4C,80,A4,5C,48,20,C9
41 DATA FF,AA,68,90,01,8A,60,09
42 DATA 3C,12,13